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AN  INTRODUCTION  TO  FORTRAN  PROGRAMMING 
FOR  THE  ADVANCED  SCIENTIFIC  COMPUTER 


I.  FOREWORD 

The  purpose  of  this  report  is  to  provide  NRL  Research  Staff 
members  with  a brief,  unified  introduction  to  the  Advanced  Scientific 
Computer  (ASC) . It  is  written  from  the  viewpoint  of  a research  scien- 
tist (the  user)  who  knows  FORTRAN  programming  but  who  is  not  familiar 
with  the  complexities  of  the  ASC  and  its  Job  Specification  Language 
(JSL) . It  is  intended  to  provide  the  simplest  procedures  necessary  to 
"get  on  the  machine",  run  FORTRAN  programs,  and  get  answers. 

All  of  the  procedures  in  this  report  have  been  used  successfully 
by  the  authors.  The  programming  consultants  of  the  Research  Computa- 
tion Center  contributed  most  of  the  information  in  this  report.  They 
are  available  to  provide  more  detailed  information  than  is  given  in 
this  summary. 

Obviously,  this  introduction  is  neither  unique  nor  complete; 
suggestions  for  improvements  and  additions  are  welcomed  by  the 
authors . 

A.  References 

For  more  detailed  information,  the  user  is  referred  to  the 
following  documents  which  are  available  from  the  Research  Computation 
Center  in  Building  A49. 

1.  Scientific  Program  Library  User  Manual  for  the  Naval 
Research  Laboratory;  June,  1976. 

2.  ASC  F0RTRAN  Manual,  Texas  Instruments,  Inc., 

#930055-2;  Jan.,  1976. 

3.  Job  Specification  Reference  Manual,  Texas  Instruments, 
Inc.,  #930038-4;  May,  1976. 

4.  ASC  Keyboard  Concentrator  System  User's  Manual, 

Texas  Instruments,  Inc.,  #934732-2;  May,  1976. 

5.  NRL  Computer  Notes  103  & 110. 

6.  CIFER,  Card  Image  File  Editor,  Texas  Instruments,  Inc., 
#930032-1;  Oct.,  1974. 

Note:  Manuscript  submitted  May  10,  1977. 
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B.  Notation  Used  in  This  Report 


A simple  program  is  short  with  few — if  any — short  subroutines. 
It  is  filed  sequentially. 

A complex  program  contains  many  long  subroutines.  It  is  par- 
titioned into  its  various  members  and  filed  as  a library  (PD) 
file. 

In  the  following  programs,  information  written  in  lower  case 
is  to  be  supplied  by  the  user. 

Comments  on  the  programming  procedures  are  written  in  lower 
case  and  are  indented  from  the  actual  program  listing. 

All  listings  begin  in  Column  1 and  spaces — or  lack  of  spaces  — 
must  be  typed  as  given. 

The  account  number,  user  code,  and  password  are  established 
with  the  Research  Computation  Center  on  their  application 
forms.  (See  Computer  Note  #107). 

The  job  name  (usually  the  user's  last  name)  designates  the 
alphabetical  bin  in  which  output  is  placed  at  the  Work 
Control  Center. 

For  convenience,  the  authors'  division  (D79)  and  branch  (B40) 
are  used  in  these  programs.  The  user  must  change  these  to  the 
appropriate  numbers. 

The  program  name  can  contain  8 alphabetic  characters. 

Catalogue  maintenance  is  described  in  Reference  3,  Chap.  7. 
Also  defined  are  file,  node,  pathname,  version. 

Macro  is  described  in  Reference  3,  Chap.  9. 

Alphabetic  "0"  (Oh)  is  written  "0" 

Numeric  "0"  (Zero)  is  written  "0" 

Alphabetic  "I"  (Eye)  is  written  "I" 

Numeric  "1"  (One)  is  written  "1" 


L 


means  Carriage  Return:  implied  if  not  written  at  end 

of  line 

means  simultaneously  pressing  Control  key  and  S key: 
this  is  sign-on 

means  Control  C:  this  terminates  the  previous  command 

means  Control  T and  tabs  six  spaces  for  the  beginning 
of  a F0RTRAN  command:  implied  for  F0RTRAN  commands 

means  Control  X:  this  is  sign-off  and  is  implied  if  not 

written  at  end  of  session 


, fc* 
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II.  ASC  REMOTE  KEYBOARD  TERMINAL  PROCEDURES 


A.  Simple  Programs 


1.  Sign  on  and  CReate  a Program  (see  Reference  4) 


If  the  ASC  remote  terminal  uses  an  acoustic  coupler 
then  first  extension  75904  is  dialed  and  when  the 
tone  is  heard  the  telephone  handset  is  put  into  the 
acoustic  coupler. 


© 


computer  responds 
accountno., usercode, password  (CR 
computer  responds 
jobname  (CR) 

CR,  programname 


© 


Type  F0RTRAN  program 

To  correct  minor  typing  errors,  press  RUBOUT  key 
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2.  Execute  a Program  and  Print  Output  at  Remote  Terminal 


Wait  for  computer  response  after  typing  these  commands. 
First  the  program  is  STored  from  the  local  keyboard 
computer  memory  to  the  ASC  disc. 

ST, programname 

A special  set  of  JSL  macros  is  called  upon  so  that  the 
user  can  interact  with  the  main  ASC  through  the  remote 
keyboard  terminal. 

/ MACAS G S$, USERCAT/TERMINAL/MACR0S 
L,  A 

Program  CReated  in  paragraph  1 is  listed  for  review. 

/ FTNLX  IN=programname 

The  ASC  compiles  and  executes  the  F0RTRAN  Program.  A 
special  file  in  the  memory,  FT06F001,  is  used  for  the 
PRINT  output  of  all  F0RTRAN  programs.  The  file  FT06F001 
is  LOaded  from  the  ASC  to  the  local  keyboard  computer 
memory.  (See  Appendix.) 

L0, FT06F001 
ED, FT06F001 
L,A 


We  List  the  file  FT06F001  by  EDiting  it.  FT06F001 
contains  the  output  of  the  program.  Any  programming 
errors  and  diagnostic  messages  will  be  printed  now  - if 
compiling  and  link  editing  are  successful. 
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3.  Example:  Calculation  of  Chebyshev  Polynomials 

© „ 

accountno. , usercode, password  (Cly 

jobname 
CR, CHEBYSHV 
(T)  PR0GRAM  CHEBYSHV 

C THIS  PR0GRAM  CALCULATES  THE  CHEBYSHEV 
C P0LYN0MIALS  TN(X)=C0S(N*ARC  C0S  X) 

X=0 . 50 
D0  10  N=l,5 
T=C0S (N*ARC0S (X) ) 

PRINT  20,N,X,T 

20  F0RMAT (5X,  'N=',I4,  2X,  ' X=' , F7 .4,  2X,  'TN(X)=' , F10. 7) 
10  CONTINUE 
ST0P 
END 

© 

ST, CHEBYSHV 

/ MACASG  S$, USERCAT/TERMINAL/MACR0S 
L,A 

Program  is  listed 
/ FTNLX  IN=*  CHEBYSHV 
L0, FT06F001 
ED,FT06F001 
L,A 

Output  is  listed 


© 

© 


Computer  responds 
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4. 


Execute  a Program  and  Print  Output  at  Work  Control  Center 


Follow  procedure  of  paragraph  2.  (See  Appendix.) 
After  FTNLX  type 

/ F0SYS  SYS.PRT 
/ F0SYS  FT06F001 

Continue  as  before.  Output  will  be  printed  at  both 
ASC  Work  Control  Center  and  at  remote  terminal. 


5.  Catalogue  a Program  from  Remote  Terminal  to  ASC.  (See 
Computer  Note  99.) 

Follow  procedure  of  paragraph  1,  then  type. 

ST, programname 

/ CAT  USERCAT/D79/B40/usercode/programname, ACNM=programname 
Follow  procedure  of  paragraph  2,  for  example. 


8 


. ; ~ 

r,V^  — v • 


6.  Editing  and  Executing  Programs 


This  program  gives  the  procedure  for  the  repetitive 
editing  (making  correction,  adding  new  commands,  etc.) 
to  a program  already  catalogued  on  the  ASC. 

© 

accountno., usercode,  password 
jobname 

/ MACASG  S$, USERCAT/TERMINAL/MACR0S 
PD,  MY,  USERCAT/D79/B40/ usercode/ programname 
AS, programname,  MY 
L 0, programname 
■ ED, programname 

Edit  and  correct  program:  The  many  keyboard  commands 

are  given  in  the  appendices  of  Reference  4. 

L,A 

program  is  listed 

/ REL  FT06F001, SYS.0M0D,  SYS.LM0D,  SYS.PRT  (skip  first  time) 
ST, programname 
/ FTNLX  IN=programname 
RE,FT06F001  (skip  first  time) 

L0, FT06F001 
ED, FT06F001 
L,  A 

Output  is  printed 

This  procedure  may  be  repeated  until  final  program  is 
obtained. 

Go  back  to  ED, programname  to  repeat  procedure. 

RPLV  MY, ACNM=programname 
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7.  Enter  Data  from  a Keyboard  Terminal 

After  editing  is  completed,  as  in  paragraph  6 type 

ST,  programname 
CR, FT05F001 

type  input  data;  READ  statement  must  be  in  F0RTRAN 
program 
ST, FT05F001 

/ FTNLX  IN=programname 
continue  as  before 


8.  Catalog  Status  of  a User's  Program 

0 

accountno.,  usercode, password 
jobname 

CS, USERCAT/D79/B40/ usercode, LIST=VANS 

a user's  files  catalogued  under  this  pathname  are  listed 


9.  Catalog  Status  of  Other  User's  Program 

0 

accountno. , usercode,  password 
jobname 

LIMIT  USC0=otherusercode 

CS, USERCAT/D79/B40/otherusercode, LIST=VANS 
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B.  Complex  Programs 

1.  Sign-on  Procedure 

© 

accountno. ,usercode , password 
j obname 

Note:  The  security  classification  is  assumed  to  be 

UNCLASSIFIED. 

/ MACASG  S$,USERCAT/TERMINAL/MACR0S 
SE ,terminalsectors  .ASCsectors , CPtime 

Note:  This  command  SEts  aside  extra  disc  memory 

space  for  long,  complex  programs. 

terminalsectors  = no.  of  sectors  for  remote 
terminal 

lower  limit  = 128  (default  value) 
upper  limit  = 32768 

ASCsectors  * no.  of  sectors  reserved  on  ASC 
lower  limit  = 3125  (default  value) 
upper  limit  * 12800 

CPtime  = Central  Processor  time  in  seconds 
(default  value  = 60  secs.) 

User  may  have  to  wait  for  computer  response 
(SET  = OKAY);  simple  programs  can  be  created 
now,  however. 

If  the  program  is  already  catalogued  on  the 
ASC,  use  procedure  of  paragraph  3. 

If  the  program  is  to  be  CReated  and  then 
CATalogued,  use  procedure  of  paragraph  2. 
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2.  Create  and  Catalog  Programs 


Follow  procedure  of  paragraph  1. 


Then  type 


CR , programname 

Type  FORTRAN  program 

Note:  It  is  good  practice  to  CALL  R$ST0P,  an  ASC 

debugging  aid  (see  Computer  Note  #94)  before  the 
first  executable  FORTRAN  command. 


© 

ST , programname 

/ CAT  USERCAT/D79/B40/usercode/programname  ,ACNM*programr.ame 

Now  follow  procedure  of  paragraph  4. 

Note:  It  is  good  practice  to  print  out  a Job 

Activity  (JA)  after  commands  ST,  / CAT,  PD,  AS, 
etc.  to  see  if  they  worked.  See  Reference  4. 


3.  List  Catalogued  FORTRAN  Program 

Follow  procedure  of  paragraph  1.  Then  type 

PD, MY,USERCAT/D79/B40/userc ode /programname 
AS , PDFILE$$ ,MY ,USE=SHR 
L 0 , programname 
ED, programname 

Note:  Here  we  are  using  some  complex — but  very 

useful--catalog  maintenance  procedures;  see  Reference 
3,  Chap.  7 or  the  RCC  consultants. 

Here  we  let  programname  = membemame  of  file. 

Also  note  that  PDFILE$$  is  the  only  name  that  can  be 
used  for  Partitioned  Direct  Secondary  (PDS)  files. 

L,A 

program  is  listed 
ST, programname 

<s> 

Now  follow  procedure  of  paragraph  4. 


4.  JSL  Macro  for  Repetitive  Executing  and  Cataloguing 


This  procedure  is  typed  once  only.  See  Reference  6. 

A set  of  JSL  commands,  which  are  used  repeatedly,  are 
combined  into  the  macro  we  call  JSL.  After  procedures 
of  paragraphs  B.l  and  B.2  or  B.l  and  B.3  type 

CR,  JSL 

/ REL  FT06F001, SYS.0M0D, SYS.LM0D,  SYS.PRT 
/ CIFER 

«COPY  programname,  PDFILE$$/programname 
«MERGE  PDFILE$$,  SEQN 
/ FD  FT06F001, BAND=4/12/4 
/ FTNLX  IN=SEQN,FTN0PT=(K),FTVERS=FX 

© 


Note:  Either  the  FX  compiler  (FTVERS=FX)  or  the  NX 

compiler  can  be  used  here.  The  authors  have  found 
the  FX  compiler  to  be  more  convenient  for  problems 
requiring  complex  arithmetic.  The  optimizing  compiler, 
NX,  is  useful  for  large  production  runs. 


5.  Repetitive  Editing,  Executing,  and  Cataloguing 

The  procedure  of  paragraph  4 need  only  be  performed 
once.  Then  type 

— ► AP,  JSL 

RE, FT06F001  (Skip  first  time) 

L0, FT06F001 
ED, FT06F001 
L,  A 

Output  is  listed. 

L0, programname 
ED. programname 
L,  A 

Program  is  listed 
Modifications  may  be  made. 

Go  back  to  AP, JSL  and  repeat  until  final  program  is 
obtained. 
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III. 


ASC  PUNCHED  CARDS  FOR  COMPLEX  PROGRAMS 


1.  Execute  a FORTRAN  Program  on  ASC 

/ J0B  jobname,  accountno.,  usercode,  0PT=(C, D,  R) 
/ LIMIT  MIN=5,BAND=20 
/ FTNLX  0PT=(K) 

F0RTRAN  source  deck 

/ E0J 


2.  Catalog  Complex  Program  on  ASC 

/ J0B  same  as  above 

/ LIMIT  same  as  above 

/ PD  MY,USERCAT/D79/B40/usercode 

Note:  MY  is  a dummy  name  for  this  particular  program 

/ CATN  MY/programname,  MXVR=2 
/ CATN  MY/programname/S0URCE,MXVR=2 
/ CIFER 

«SPLIT  *,  S0URCE 
source  deck 

/ CATV  MY/programname/ S0URCE, ACNM=S0URCE 
/ E0J 


3.  Punch  a Duplicate  Deck  of  Cards 

/ J0B  same  as  above 

/ LIMIT  same  as  above 

/ F0SYS  SYS . IN, TYPE=PUNCH, C0PIES=n 

deck  to  be  punched  (less  than  3200  cards) 

Note:  One  copy  is  punched  unless  C0PIES  = n is  added 

after  PUNCH;  n = no.  of  copies 

/ E0J 
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List  Deck  of  Cards 


/ J0B  same  as  above 
/ LIMIT  same  as  above 
/ F0SYS  SYS. IN 

deck  to  be  listed  (less  than  3200  cards) 


/ E0J 


Convert  CDC  F0RTRAN  Deck  to  ASC  Format 

/ J0B  same  as  above 
/ LIMIT  same  as  above 
/ FD  DICK,  USERCAT/D42/B2O/MCGIR1/L0AD 
/ ASG  SYS. IM0D, DICK,  USE=SHR 
/ FXQT  0PT=(Z,A), CPTIME=30000 
10  11 
deck  to  be  converted 
E 

/ REL  SYS.LM0D 

/ FTN  FTN0PT=(X,M),IN=FTO7FOO1,FTVERS=FX 
/ F0SYS  FTO  7F00 1, TYPE=PUN CH 
/ LNK 

/ FXQT  0PT=(Z,  A),  CPTIME=30000 
data  cards,  if  any 

/ E0J 


List  User's  Catalogued  Files 

/ J0B  same  as  before 
/ LIMIT  same  as  before 
/ CATLST  CP0PT=(A,  B) 

7USERCAT  usercode  4 
USERCAT  D79  B40 

/ E0J 


usercode 


7.  Enter  Data  in  F0RTRAN  Program 

/ J0B  same  as  before 
/ LIMIT  same  as  before 
/ FTNLX  0PT=(K),DATA= INPUT 

F0RTRAN  Source  deck  (READ  Statement) 
/ START  ACNM= INPUT 
Data  Cards 
/ ST0P 
/ E0J 
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